|
|
 |
|
|
|
|
68: 'Polymorphic call to openReport() method
69: theReporting.openReport theForm.txtReportName
70: Screen.MousePointer = vbDefault
71:
72: End Sub
73:
74: '##ModelId=3521521000AA
75: Public Sub clickedPrintReport()
76: Screen.MousePointer = vbHourglass
77: If TypeName(theReporting) <> Nothing Then
78: 'Set thePrinterProxy = New PrinterProxy
79: theReporting.printReport 1
80: End If
81: Screen.MousePointer = vbDefault
82: End Sub
83:
84: '##ModelId=3521521000E6
85: Public Sub clickedSaveReport()
86: If TypeName(theReporting) <> Nothing Then
87: Screen.MousePointer = vbHourglass
88: Dim sPath As String
89: 'sPath = App.Path & \Company.rtf
90: Call theReporting.saveReport(theForm.txtReportName)
91: Screen.MousePointer = vbDefault
92: End If
93: End Sub
94:
95: '##ModelId=352152100118
96: Public Sub testRichTextReport()
97:
98: End Sub
99:
100: '##ModelId=352152100186
101: Public Sub testAccessReport()
102:
103: End Sub
104:
105: '##ModelId=3521521001C2
106: Public Sub testCrystalReport()
107:
108: End Sub
109:
110: '##ModelId=3521521001F4
111: Private Sub setAccessReporting(argMsg As Byte)
112: If eReporting.AccessReporting = argMsg Then
113: Set theAccessReporting = New AccessReporting
|
|
|
|
|
|